﻿Public Class imageComboBoxItem

    Private _text As String

    Public Property Text() As String
        Get
            Return _text
        End Get
        Set(ByVal value As String)
            _text = value
        End Set
    End Property

    Private _imageIndex As Integer

    Public Property ImageIndex() As Integer
        Get
            Return _imageIndex
        End Get
        Set(ByVal value As Integer)
            _imageIndex = value
        End Set
    End Property

    Public Sub New()
        MyClass.New("", -1)
    End Sub

    Public Sub New(ByVal text As String)
        MyClass.New(text, -1)
    End Sub

    Public Sub New(ByVal text As String, ByVal imageIndex As Integer)
        _text = text
        _imageIndex = imageIndex
    End Sub

    Public Overloads Overrides Function ToString() As String
        Return _text
    End Function

End Class
